|
Autocad VBA : Einfügen von MTextObj - Fehler
ToniM am 22.07.2005 um 12:31 Uhr (0)
Ich hoffe jetzt ist es klarer, Axel. Ich möchte einen Block aus einer bestehenden Zeichnung einfügen und die Attribute, die darin vorkommen, ausfüllen. So, das ist mein Plan! *g* So sieht mein Code aus (Die arrays sind beschrieben - Platzmangel). Ich hab unten ein Kommentar eingefügt. Wenn ich diese beiden Zeilen weg lasse, erhalte ich einen Fehler. Code: Dim datenTextfeld(), werteTextfeld() Dim blkSKDim insPnt(2) As Double Dim BlockName As String Dim ar As Variant insPnt(0) = 100: insPnt(1) ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Textdateien öffnen/drucken/schließen
ToniM am 28.07.2005 um 12:47 Uhr (0)
Funktioniert alles! Super Danke! Nur eines klappt nicht: Der "Show Modus"! Beim Notepad passiert bei "vbMinimizedNoFocus" das richtige: Meine ACAD-Zeichnung bleibt an oberster Stelle. Bei Word nicht!??? Und beim I-Explorer auch nicht. Da hilft auch kein "vbHide". Weißt du warum? (Ist nicht wirklich wichtig, bin nur neugierig!) ------------------ LG Martin
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Einfügen von MTextObj - Fehler
ToniM am 25.07.2005 um 06:31 Uhr (0)
Entschuldige, dass ich mich erst jetzt melde, hab am FR schon Feierabend gemacht! Mein Vorhaben: Einen (bestehenden) Block in meine aktuelle Zeichnung einfügen Die Attribute in diesen Block möchte ich mit errechneten Werten ausfüllen Der Code ist nur das Ergebnis meiner "Probiererei". Ich hab keine Ahnung ob ich dazu BLOCK/ATTDEF odgl. brauche! (Ich hab erst vor 2 Wochen mit VBA angefangen) Ich hoffe du weißt nun was ich brauche! *gg* Und ich würde mich freuen, wenn du mir weiterhelfen würdest! ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD 2005 VBA
ToniM am 15.07.2005 um 08:20 Uhr (0)
Danke Proxy, das einfügen funktioniert jetzt! Hier ist ein Teil von meinem Programm: Private Sub cmd_testFile_Click() Dim insPnt(2) As Double Dim blkSK, blkEL, temp Dim i, k As Integer insPnt(0) = 0 insPnt(1) = 0 insPnt(2) = 0 Set blkSK = ThisDrawing.ModelSpace.InsertBlock(insPnt, BlockName, 1#, 1#, 1#, 0) Set blkSK = ThisDrawing.Blocks.Item(BlockName) **????** k = 0 For i = 0 To blkSK.Count - 1 Step 1 Set blkEL = blkSK.Item(i) ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
